(mail-bury): Check that frame-parameters is defined.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 604272285c3c0f349ff8ddbed80897c49c5705d2..5eb37c9c32d87f3b56aa92eba050c0823bbc766c 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -298,7 +298,8 @@ Prefix arg means don't delete this window."
   "Bury this mail buffer."
   (let ((newbuf (other-buffer (current-buffer))))
     (bury-buffer (current-buffer))
-    (if (and (cdr (assq 'dedicated (frame-parameters)))
+    (if (and (fboundp 'frame-parameters)
+            (cdr (assq 'dedicated (frame-parameters)))
             (not (null (delq (selected-frame) (visible-frame-list)))))
        (delete-frame (selected-frame))
       (if (and (not arg)